Voorbeeld van de functie LOF

Dit voorbeeld maakt gebruik van de functie LOF om de grootte van een geopend bestand te bepalen. Dit voorbeeld gaat ervan uit dat TESTBSTD een tekstbestand is met proefgegevens.

Dim FileLength
Open "TESTBSTD" For Input As #1    ' Open file.
FileLength = LOF(1)    ' Get length of file.
Close #1    ' Close file.